home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / V-TPUG Programming Contest / (n)v1.d64 / spelling i (.txt) < prev    next >
Commodore BASIC  |  2009-01-19  |  2KB  |  95 lines
  1. 100 U$=CHR$(34):V$=CHR$(44)
  2. 110 PRINT"[147]SPELLING I IS TO TEACH";:PRINT"RECOGNITION OF PROPER-";
  3. 120 PRINT"LY SPELLED WORDS.":PRINT
  4. 130 PRINT"USING ";U$;"LISTMAKER";U$;V$;"MAKE";:PRINT"A LIST OF LESS THAN 50";
  5. 140 PRINT"WORDS - SOME RIGHT AND";:PRINT"SOME WRONG. EACH WRONG";
  6. 150 PRINT"WORD SHOULD HAVE THE":PRINT"LETTER";U$;"W";U$;" AS THE FIRST";
  7. 160 PRINT"LETTER (THIS WILL NOT":PRINT"SHOW ON THE SCREEN).
  8. 170 [153]"EACH RIGHT WORD SHOULD";:[153]"HAVE ";U$;"R";U$;" AS THE FIRST LETTER."
  9. 180 [153]:[153]"WHEN SPELLING I IS RUN";:[153]"IT WILL LOAD THIS LIST";:
  10. 190 [153]"AS A DATA FILE"
  11. 200 [153]:[153]"PRESS ANY KEY TO GO ON";
  12. 210 [161] NE$:[139] NE$[178]"" [167] 210
  13. 220 [153]"LOAD THIS GAME IS PLAYED":[153]"WITH A JOYSTICK WHICH"
  14. 230 [153]"IS USED TO MOVE THE":[153] U$;"CANNON";U$;" UP AND DOWN."
  15. 240 [153]:[153]"WHEN IT IS OPPOSITE TO";:[153]"A WORD THAT IS SPELLED";
  16. 250 [153]"INCORRECTLY";V$;" PRESS THE";:[153]"FIRE BUTTON TO BLOW IT";
  17. 260 [153]"AWAY.":[153]:[153]"WHEN ALL OF THE WRONG"
  18. 270 [153]"WORDS ARE GONE";V$;"YOU'VE":[153]"WON";V$;" BUT WATCH OUT IF"
  19. 280 [153]"YOU SHOOT A RIGHT ONE!"
  20. 290 [153]:[153]"PRESS ANY KEY TO BEGIN";
  21. 300 [161] NE$:[139] NE$[178]"" [167] 300
  22. 310 [153] "LOAD":OF[178]33792
  23. 320 [134] W$(50)
  24. 330 [159]1,1,0,"WORD LIST"
  25. 340 II[178]1
  26. 350 [132]1,S$
  27. 360 [139] S$[178]"E" [167] 390
  28. 370 W$(II)[178]S$
  29. 380 II[178]II[170]1:[137] 350
  30. 390 IS[178]II:I[178][181]((IS[171]2)[172][187](0)[170]1.5)
  31. 400 IP(1)[178]I
  32. 410 [129] N[178]2 [164] 10
  33. 420 I[178][181]((IS[171]2)[172][187](1)[170]1.5)
  34. 430 [129] J[178]1 [164] N[171]1
  35. 440 [139] I[178]IP(J) [167] 420
  36. 450 [130] J
  37. 460 IP(N)[178]I
  38. 470 [130]
  39. 480 WC[178]0
  40. 490 [129] N[178]1 [164] 10:[139] [200](W$(IP(N)),1)[178]"W" [167] WC[178]WC[170]1
  41. 500 [130]
  42. 510 [139] WC[178]0 [167] 390
  43. 520 [153] "LOAD"
  44. 530 [129] N[178]1 [164] 10
  45. 540 L[178][195](W$(IP(N)))
  46. 550 [153] [163]22[171]L);"";[200](W$(IP(N)),1);"";[201](W$(IP(N)),L[171]1)
  47. 560 [130]
  48. 570 GL[178]4140
  49. 580 [151] GL,160:[151] GL[170]OF,0
  50. 590 [151] 37139,0:PA[178]37137
  51. 600 P[178][194](PA)
  52. 610 S1[178][171]((P [175] 8)[178]0)
  53. 620 S0[178][171]((P [175] 4)[178]0)
  54. 630 F[178][171]((P [175] 32)[178]0)
  55. 640 [139] F[178]1 [167] 680
  56. 650 [139]S0[178]1[167][139]GL[177][178]4184[167][151]GL,32:GL[178]GL[171]44:[151]GL,160:[151]GL[170]OF,0:[129]D[178]1[164]250:[130]
  57. 660 [139]S1[178]1[167][139]GL[179][178]4492[167][151]GL,32:GL[178]GL[170]44:[151]GL,160:[151]GL[170]OF,0:[129]D[178]1[164]250:[130]
  58. 670 [137] 590
  59. 680 [153] "";
  60. 690 SD[178][181]((GL[171]4096)[173]22[170].5)
  61. 700 [129] N[178]1 [164] SD
  62. 710 [153] "";
  63. 720 [130]
  64. 730 [153] "";
  65. 740 DM[178]0
  66. 750 [153] [199](113);
  67. 760 [129] D[178]1 [164] 10:[130]
  68. 770 [153] "CMD";[199](32);
  69. 780 [139] DM[178]1 [175] [185](X)[179]21 [167] 750
  70. 790 [139] DM[178]1 [175] [185](X)[178]21 [167] [151] GL[170]21,32:[137]1010
  71. 800 [139] [194] (GL[170][185](X))[178]32 [167] 750
  72. 810 [139] [194] (GL[170][185](X))[178]18 [167] DM[178]1:[141] 840
  73. 820 [139] [194] (GL[170][185](X))[178]23 [167] DM[178]1:[137]750
  74. 830 [139] [185](X)[179]21 [167] [141] 960
  75. 840 [151] 36879,42
  76. 850 [129] D[178]1 [164] 100:[130]
  77. 860 [153] "LOAD"
  78. 870 [151] 36877,200:[151] 36878,15
  79. 880 [129] D[178]1 [164] 500:[130]
  80. 890 [129] J[178]14 [164] 0 [169][171]1
  81. 900 [151] 36878,J
  82. 910 [129] D[178]1 [164] 50:[130]
  83. 920 [130]
  84. 930 [151] 36879,27
  85. 940 [137] 390
  86. 950 [142]
  87. 960 [153] "LOAD"
  88. 970 [129] K[178]1 [164] 45 [169] 2
  89. 980 [153] W$(K),W$(K[170]1)
  90. 990 [130]
  91. 1000 [137] 1000
  92. 1010 WC[178]WC[171]1:[139] WC[178]0 [167] [153]"LOADYOU WIN!":[129] D[178]1 [164] 500:[130]:[137] 390
  93. 1020 [137] 590
  94. 1030 [142]
  95.